home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / drawal1r / saveas.bas < prev   
Encoding:
BASIC Source File  |  1999-08-15  |  651 b   |  28 lines
  1. Attribute VB_Name = "SaveAs"
  2. Option Explicit
  3. Type OPENFILENAME
  4. lStructSize As Long
  5. hwndOwner As Long
  6. hInstance As Long
  7. lpstrFilter As String
  8. lpstrCustomFilter As String
  9. nMaxCustFilter As Long
  10. nFilterIndex As Long
  11. lpstrFile As String
  12. nMaxFile As Long
  13. lpstrFileTitle As String
  14. nMaxFileTitle As Long
  15. lpstrInitialDir As String
  16. lpstrTitle As String
  17. flags As Long
  18. nFileOffset As Integer
  19. nFileExtension As Integer
  20. lpstrDefExt As String
  21. lCustData As Long
  22. lpfnHook As Long
  23. lpTemplateName As String
  24. End Type
  25.  
  26. Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
  27.  
  28.